home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / sample code / overview / moreisbetter / mib-libraries / moresetup.p < prev    next >
Encoding:
Text File  |  2000-09-28  |  1.4 KB  |  54 lines

  1. (*
  2.     File:        MoreSetup.p
  3.  
  4.     Contains:    Standard unit for MoreIsBetter Pascal code.
  5.  
  6.     Written by:    Quinn
  7.  
  8.     Copyright:    Copyright © 1999 by Apple Computer, Inc., All Rights Reserved.
  9.  
  10.                 You may incorporate this Apple sample source code into your program(s) without
  11.                 restriction. This Apple sample source code has been provided "AS IS" and the
  12.                 responsibility for its operation is yours. You are not permitted to redistribute
  13.                 this Apple sample source code as "Apple sample source code" after having made
  14.                 changes. If you're going to re-distribute the source, we require that you make
  15.                 it clear in the source that the code was descended from Apple sample source
  16.                 code, but that you've made changes.
  17.  
  18.     Change History (most recent first):
  19.  
  20.          <1>     25/2/99    ???     First checked in.
  21. *)
  22.  
  23. unit MoreSetup;
  24.  
  25. interface
  26.  
  27. (*
  28.     //    Almost every non-trivial module needs to detect
  29.     //    or produce errors, so we include it for the
  30.     //    convenience of all modules.
  31. *)
  32.  
  33.     uses
  34.         Errors;
  35.  
  36. (*
  37.     //    Our assertion macros compile down to nothing if
  38.     //    MORE_DEBUG is not true.  MoreAssertQ is Quinn's flavor
  39.     //    of MoreAssert which does not produce a value.
  40.     //    MoreAssert is not available to Pascal because
  41.     //    it's hard to define it properly.
  42. *)
  43.  
  44. {$ifc MORE_DEBUG}
  45.     {$definec MoreAssertQ(mustBeTrue) begin if not (mustBeTrue) then DebugStr('MoreAssert failure') end}
  46. {$elsec}
  47.     {$definec MoreAssertQ(mustBeTrue) }
  48. {$endc}
  49.  
  50. implementation
  51.  
  52. end. (* MoreSetup *)
  53.  
  54.